home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / vudu3p.zip / VUDU.INC < prev    next >
Text File  |  1992-05-28  |  6KB  |  136 lines
  1. '** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
  2. ' This header file is to be included in ALL programs using the utilities
  3. ' in the VUDU windowing libraries.  Include the following line in your
  4. ' program:                REM $INCLUDE: 'VUDU.INC'
  5. '
  6. '                VUDU INCLUDE FILE FOR BASIC PDS Version
  7. '
  8. '                Copyright (c) 1991, 1992 Binary Systems
  9. '** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
  10.  
  11. '-----------------------------------------------------------------------
  12. '               VUDU BASIC DECLARATIONS
  13. '-----------------------------------------------------------------------
  14. DECLARE FUNCTION ATTRIB% (fg%, bg%)
  15. DECLARE FUNCTION BARMENU$ (MenuLine$(), Items$(), MenuSlct%, ItemSlct%)
  16. DECLARE SUB BRIDGE (row%, col1%, col2%, Bor%)
  17. DECLARE FUNCTION CLICK$ ()
  18. DECLARE FUNCTION CM% (kolor%, mkolor%)
  19. DECLARE SUB COLMON (fg%, bg%)
  20. DECLARE FUNCTION DATIN$ (Daytype%)
  21. DECLARE SUB DEFBAR (BFG%, BBG%, BCHAR%, BCLR%)
  22. DECLARE SUB DEFWIN (HedFG%, HedBG%, BorFG%, BorBG%, WinFG%, WinBG%, Border%, Shadow%)
  23. DECLARE SUB FLUSHKEY ()
  24. DECLARE FUNCTION GETCH$ ()
  25. DECLARE SUB HILITE (RowNum%, ColNum%, Length%, attr%)
  26. DECLARE SUB HILITV (RowNum%, ColNum%, Length%, attr%)
  27. DECLARE FUNCTION INFIELD$ (Receiving$, FieldLen%)
  28. DECLARE FUNCTION ISMOUSE% ()
  29. DECLARE FUNCTION MAKEMENU$(MRow%, MCol%, MenuClear%, MHeader$, Choices$(), ItemSelect%)
  30. DECLARE FUNCTION MESSAGE$ (row%, Col%, MesHed$, Msg$(), Choice$, pause%, Msgclear%)
  31. DECLARE FUNCTION MONOVID%
  32. DECLARE SUB MOUSEAREA (r1%, c1%, r2%, c2%)
  33. DECLARE SUB MOUSEOFF
  34. DECLARE SUB MOUSEON
  35. DECLARE FUNCTION MOUSEPOLL% ()
  36. DECLARE SUB MOUSEXY (r%, c%)
  37. DECLARE SUB OPENWIN (LRow%, LCol%, RRow%, RCol%, header$)
  38. DECLARE SUB PRINTS (SEG StrVar$, RowNum%, ColNum%, attr%)
  39. DECLARE SUB PRINTV (SEG StrVar$, RowNum%, ColNum%, attr%)
  40. DECLARE SUB RESCREEN (SEG StrVar$)
  41. DECLARE SUB RESWIN (SEG WinVar$, LRow%, LCol%)
  42. DECLARE SUB SAVWIN (WinVar$, LRow%, LCol%, RRow%, RCol%)
  43. DECLARE SUB SAVSCREEN (StrVar$)
  44. DECLARE SUB SCROLL (lr%, LC%, rr%, rc%, direction%)
  45. DECLARE FUNCTION SCROLLMENU$ (LRow%, LCol%, Brow%, SclSav%, Items$(), header$, Choice%)
  46. DECLARE SUB SETBAR (MenuLine$())
  47. DECLARE SUB SETMOUSE (r%, c%)
  48. DECLARE SUB VCLS (row1%, col1%, row2%, col2%, attr%)
  49. DECLARE SUB VCOLOR (fgnd%, bkgnd%)
  50. DECLARE FUNCTION VIDCARD%
  51. DECLARE SUB VINIT ()
  52. DECLARE SUB VSLEEP (seconds%)
  53. '-----------------------------------------------------------------------
  54.  
  55. '-----------------------------------------------------------------------
  56. '       COLOR CONSTANTS
  57. '-----------------------------------------------------------------------
  58. CONST BLK = 0, BLU = 1, GRN = 2, CYN = 3
  59. CONST RED = 4, MAG = 5, YEL = 6, WHT = 7
  60. CONST BRITE = 8, FLASH = 16
  61.  
  62. '-----------------------------------------------------------------------
  63. '       OPENWIN CONSTANTS FOR WINDOW BORDERS
  64. '-----------------------------------------------------------------------
  65. CONST NONE = 1
  66. CONST THIN = 2
  67. CONST PAIR = 3
  68. CONST ILINE = 4
  69. CONST HLINE = 5
  70. CONST THICK = 6
  71. '-----------------------------------------------------------------------
  72. '       CONSTANTS FOR SCROLLING DIRECTION AND LABEL POSITIONS
  73. '-----------------------------------------------------------------------
  74. CONST LEFT = 0, RIGHT = 1
  75. CONST UP = 2, DOWN = 3
  76. CONST CENTER = 4
  77.  
  78. '-----------------------------------------------------------------------
  79. '       VIDEO CARD CONSTANTS
  80. '-----------------------------------------------------------------------
  81. CONST MONO = 1, CGA = 2, EGA = 3, VGA = 4
  82.  
  83. '-----------------------------------------------------------------------
  84. '       DATIN CONSTANTS
  85. '-----------------------------------------------------------------------
  86. CONST MMDDYY = 0, MMDDYYYY = 1, YYMMDD = 2, DDMMYY = 3
  87.  
  88. '-----------------------------------------------------------------------
  89. '       ADDITIONAL CHARACTER CONSTANTS
  90. '-----------------------------------------------------------------------
  91. CONST ESC = "", BKSP = ""
  92. CONST YES = -1, NO = NOT YES
  93. CONST TRUE = YES, FALSE = NO
  94.  
  95. ' Pseudo Constants
  96. COMMON SHARED NULL AS STRING * 1
  97. COMMON SHARED CR AS STRING * 1
  98. COMMON SHARED PgUp AS STRING * 2
  99. COMMON SHARED PgDn AS STRING * 2
  100. COMMON SHARED UpKey AS STRING * 2
  101. COMMON SHARED DnKey AS STRING * 2
  102. COMMON SHARED LKey AS STRING * 2
  103. COMMON SHARED RKey AS STRING * 2
  104. COMMON SHARED Ins AS STRING * 2
  105. COMMON SHARED Del AS STRING * 2
  106. COMMON SHARED HomeKey AS STRING * 2
  107. COMMON SHARED EndKey AS STRING * 2
  108.  
  109. ' Declare Global Switches
  110. COMMON SHARED Vmouse AS INTEGER        'mouse enabled Y/N
  111. COMMON SHARED FirstLet AS INTEGER      'Hilite Color of "hotkey" letter
  112. COMMON SHARED LabelPos AS INTEGER      'Position of label on window
  113. COMMON SHARED ScrollAttrib AS INTEGER  'Scroll Color
  114. COMMON SHARED EscEnable AS INTEGER     'Allow ESC from menus Y/N
  115. COMMON SHARED ExtInfield AS INTEGER    'Allow exit on extended
  116.                        'keypress from INFIELD Y/N
  117.  
  118. 'Variables for Defining Windows
  119. COMMON SHARED HedFG  AS INTEGER, HedBG  AS INTEGER
  120. COMMON SHARED BorFG  AS INTEGER, BorBG  AS INTEGER
  121. COMMON SHARED WinFG  AS INTEGER, WinBG  AS INTEGER
  122. COMMON SHARED Border AS INTEGER
  123. COMMON SHARED Shadow AS INTEGER
  124.  
  125.     'BarMenu Parameters
  126. COMMON SHARED BarFG  AS INTEGER
  127. COMMON SHARED BarBG  AS INTEGER
  128. COMMON SHARED BarChar AS INTEGER
  129. COMMON SHARED BarClear AS INTEGER
  130. COMMON SHARED BarOn AS INTEGER
  131.  
  132. 'Input Field color globals
  133. COMMON SHARED Vfgnd AS INTEGER, Vbkgnd AS INTEGER
  134.  
  135. '------------------------------ end VUDU.INC --------------------------------
  136.